home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wildcat Gold - The Optical BBS
/
Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO
/
sdn
/
taskmst.sdn
/
TM480.EXE
/
TMISSUE.EXE
/
CONFIG.TSK
< prev
next >
Wrap
Text File
|
1991-09-10
|
27KB
|
1,158 lines
GO 1INIT
1BEGIN
MENU 1,'MAIN_MENU'
OPTION 1,2
IF TEXTS = SPACES
CURSOR 8 2 'No option texts yet exist'
CLEAR BBDISP
RETURN
FI
MOVE ESCAPE_MASK TO BBMASK
MOVE SAVECH TO CHOICE
MENU 2,'SERVICES',TEXTS
OPTION 2,30
POPDOWN START
MOVE 2 TO CHOICE
MOVE HILITE TO SAVECH
USERLINE
RETURN 1
OPTION 2,1,10
CURSOR 16 20 CEL
SUBTRACT 1 FROM CHOICE GIVING I
MOVE CHOICE TO SAVECH
FIELDFILL ENTRY I OF T1 ENTRY I OF T2
INSERT ENTRY I OF TEXTS
PUT 'TIME_WINDOW' NOCLEAR
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY I OF T1 ENTRY I OF T2
FIELDFILL ENTRY I OF CMDS ENTRY I OF PTY ENTRY I OF PATHS
CURSOR 1 0 CEL 'PATH: ' $PATH
INSERT ENTRY I OF TEXTS
PUT 'GET_COMMAND' NOCLEAR UL
CURSOR 1 0 CEL
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY I OF CMDS ENTRY I OF PTY ENTRY I OF PATHS
UPPER ENTRY I OF PTY
SETSCAN ENTRY I OF CMDS
CLEAR DELIM CMD PARAMS
SCAN CMD
IF CMD = ';'
GO 1ESC
FI
MOVE ZERO TO DELIMè SCAN PARAMS
IF PARAMS <> NULL
MOVE I TO J
MULTIPLY J BY 4
CLEAR K
UNTIL K = 4
ADD 1 TO K GIVING L
MOVE L TO CHAR
IF PARAMS CT ENTRY K OF PCS
INSERT ENTRY I OF CMDS CHAR
FIELDFILL ENTRY J OF PQS
PUT 'PROMPT_TYPE' NOCLEAR UL
IF FUNKEY = 10
GO 1ESC
FI
GET REPLY
MOVE REPLY TO ENTRY J OF PQS
INSERT ENTRY I OF CMDS CHAR
FIELDFILL ENTRY J OF PROMPTS ENTRY J OF PDEFS
IF REPLY
FIELDFILL ENTRY J OF P2DEFS
PUT 'YESNO_VALUES' NOCLEAR UL
ELSE
PUT 'GET_PROMPT' NOCLEAR UL
FI
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY J OF PROMPTS ENTRY J OF PDEFS
IF REPLY
GET ENTRY J OF P2DEFS
FI
FI
INCREMENT J
FI K
FI
FIELDFILL ENTRY I OF DTS ENTRY I OF WST
PUT 'GET_DATA' NOCLEAR UL
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY I OF DTS ENTRY I OF WST
FIELDFILL ENTRY I OF PAU
PUT 'PAUSE_AFTER_RUN' NOCLEAR UL
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY I OF PAU
UPPER ENTRY I OF PAU
MOVE ENTRY I OF RES TO CHOICE
MOVE CHOICE TO LRES
CURSOR 15 0 CEP
MOVE 8020H TO BBMASK ;allow F10/ESC
PUT 'RESULTS' NOCLEAR
IF CHOICE >= 30 è GO 1ESC
FI
MOVE CHOICE TO ENTRY I OF RES
IF CHOICE <> 1
IF CHOICE = LRES
FIELDFILL ENTRY I OF RES1 ENTRY I OF RES2
FI
MOVE CHOICE TO CHAR
COMBINE 'CHECK' CHAR INTO FNAME
PUT FNAME NOCLEAR UL
IF FUNKEY = 10
GO 1ESC
FI
GET ENTRY I OF RES1 ENTRY I OF RES2
FIELDFILL ENTRY I OF AC ENTRY I OF APF ENTRY I OF APT ENTRY I OF AP
INSERT ENTRY I OF TEXTS
CURSOR 1 0 CEL 'PATH: ' $PATH
PUT 'RUN_AFTER_CHECK' NOCLEAR UL
CURSOR 1 0 CEL
IF FUNKEY = 10
GO 1ESC
ELSE
GET ENTRY I OF AC ENTRY I OF APF ENTRY I OF APT ENTRY I OF AP
UPPER ENTRY I OF APT
IF ENTRY I OF AC <> SPACES
MOVE 'N' TO ENTRY I OF PAU
FI
FI
FI
MOVE I TO J
MULTIPLY J BY 4
ADD 4 TO J GIVING K
UNTIL J = K
FIELDFILL ENTRY J OF HLP
FI J
PUT 'USER_HELP' NOCLEAR UL
IF FUNKEY = 10
1ESC
POPDOWN START
MOVE SAVECH TO CHOICE
RETURN
ELSE
ADD I TO I GIVING J
ADD J TO J
UNTIL J = K
GET ENTRY J OF HLP
FI J
FI
USERLINE
CURSOR 2 0 CEP
ADD 1 TO SAVECH GIVING CHOICE
RETURN
OPTION 2,11,13
CURSOR 16 20 'Internal services cannot be modified'
CLEAR BBDISP
RETURN
ENDM 2
OPTION 1,1
PUT 'KHELP' NOWAIT
MOVE TEXTS TO UTEXTS
FIELDFILL UTEXTS
PUT 'TEXTS' NOCLEAR UL 'F10 Abandons any changes ...'
IF FUNKEY <> 10
CLEAR I
UNTIL I = 10
GET ENTRY I OF TEXTS
FI I
FI
CURSOR 2 0 CEP
INSERT TEXTS
PUT 'SERVICES' NODATA NOCLEAR UL
USERLINE
CLEAR CHOICE
RETURN
OPTION 1,3
OPTION 1,30
SAVE CPATH CATLOC SITE TEXTS CMDS PTY PATHS DTS WST PAU RES RES1 RES2
IF RESP = 0
SAVE AC AP APT APF HLP T1 T2 SECURE PROMPTS PDEFS P2DEFS PQS
FI
IF RESP = 0
SAVE TIMEOUT BLACK SHELL SUG
FI
IF RESP = 0
SAVE
FI
IF RESP <> 0
DISPLAYLN 'Disc error when saving service file'
FI
STOP
ENDM 1
1INIT
DEFINE ESCAPE_MASK,8000H
DEFINE OPTIONS,10
DEFINE SUG,99
HEXVAR ESC,1B
VAR AC,60,OCCURS 10
VAR AP,68,OCCURS 10
VAR APF,1,OCCURS 10,'FFFFFFFFFF'
VAR APT,1,OCCURS 10,'NNNNNNNNNN'
VAR BLACK,1,'Y'
VAR CATLOC,68,'\FMP'
VAR CHAR,1,'N'
VAR CPATH,68,'\FMP\CONFIG.TMS'
VAR CSEC,1
VAR CURRENT_PATH,68
VAR CMD,14
VAR PARAMS,40
VAR CMDS,60,OCCURS 10
VAR DTS,64,OCCURS 10
VAR FILENAME,14,'CONFIG'
VAR FMPDIR,68,$FMPDIR
VAR FNAME,6
VAR HLP,72,OCCURS 56
VAR NULL,1
VAR PATHS,68,OCCURS 10èVAR PAU,1,OCCURS 10,'NNNNNNNNNN'
VAR PCS,2,OCCURS 4,'%1%2%3%4'
VAR PQS,1,OCCURS 40
VAR PROMPTS,40,OCCURS 40
VAR PDEFS,40,OCCURS 40
VAR P2DEFS,40,OCCURS 40
VAR PTY,1,OCCURS 10,'NNNNNNNNNN'
VAR RES,1,OCCURS 10,'1111111111'
VAR RES1,40,OCCURS 10
VAR RES2,40,OCCURS 10
VAR RFILE,68
VAR SFILES,8,OCCURS 10
VAR SHELLUG,2
VAR SITE,24,'Site details'
VAR SYSMESS,72,OCCURS 16,
'When security is high, you can change your password at any time with'
'immediate effect. Passwords are normally set by the System'
'Administrator when the EUC catalogue is created. The EUC program will'
'be supplied when you register. '
'This option causes Taskmaster to mark you offline in the catalogue. In'
'order to access services again, you will have to supply a valid username'
'and password. '
' '
'This option is for use on a NETWORK and enables you to send a message to'
'the System Administrator who will be able to reply back if necessary. '
' '
'The facility is only operational on a Novell NETWARE system. '
'This option displays a variety of session information. '
' WCN is your workstation connection number. '
' ERRORLEVEL is the last response from the last program executed. '
VAR T1,5,OCCURS 10
VAR T2,5,OCCURS 10
VAR TEXTS,16,OCCURS 13
VAR TIMEOUT,2,'10'
VAR UTEXTS,16,OCCURS 10
VAR WST,2,OCCURS 10
LOGICAL CREATE
LOGICAL EXPERT
LOGICAL EUSR
LOGICAL FILE_SELECTED
LOGICAL FOREVER
LOGICAL INCMD
LOGICAL PATHEX
LOGICAL REPLY
LOGICAL SECURE
LOGICAL SHELL
VCONST CLS,11 ;clear screen
VCONST CEL,55 ;clear to end of line
VCONST CEP,56 ;clear to end of page
INT I,J,K,L
INT INTRO
INT LRES
INT MINS
INT SAVECH
INT START
END
èIF FMPDIR = NULL
MOVE 'C:\FMP' TO FMPDIR
FI
MOVE FMPDIR TO CATLOC
USER CURRENT_PATH
MOVE TRUE TO HIDE
LOOKFOR CONFIG.OVR
IF NOT FOUND
INSERT FILENAME FILENAME
PUT "NO_FORMS"
STOP
FI
FORMS CONFIG.OVR
CLEAR I
UNTIL I = OPTIONS
MOVE ';' TO ENTRY I OF CMDS
MOVE ';' TO ENTRY I OF AC
MOVE ' 0' TO ENTRY I OF WST
MOVE '00:00' TO ENTRY I OF T1
MOVE '23:59' TO ENTRY I OF T2
FI I
IF DEMO
PUT 'INTRO' NODATA NOCLEAR
POPSCREEN INTRO
UNTIL CHOICE = 3
CLEAR BBDISP
PUT 'INTRO'
IF CHOICE = 1
FORMS LOGON.OVR
PUT 'BOUNCE_BAR'
FORMS CONFIG.OVR
POPDOWN INTRO
FI
IF CHOICE = 2
PUT 'KHELP'
POPDOWN INTRO
FI
FI
FI
CLEAR SFILES I
MOVE '.' TO DELIM
DIR *.TMS
UNTIL NOT FOUND OR I = 10
SETSCAN DISPLAY 30
SCAN ENTRY I OF SFILES
DIR
FI I
IF NOT DEMO
PUT 'CONFIG1' UL
IF CHOICE = 1
MOVE TRUE TO EXPERT
FI
ELSE
POPFREE INTRO
PUT 'CONFIG2' NOWAIT UL
FI
IF I <> 0
MOVE 4020H TO BBMASK
INSERT SFILES
PUT 'SERVCATS' NOCLEAR UL
IF CHOICE = 40
STOP
FI
IF CHOICE < 10
COMBINE CURRENT_PATH '\' DISPLAY INTO CPATH
TRIM CPATH
REPLACE ALL '\\' OF CPATH WITH '\'
APPEND '.TMS' TO CPATH
MOVE TRUE TO FILE_SELECTED
MOVE CPATH TO RFILE
FI
FI
IF NOT FILE_SELECTED
PUT 'SERVICE_FILE' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET CPATH
TRIM CPATH
COMBINE CURRENT_PATH '\' CPATH INTO CPATH
REPLACE ALL '\\' OF CPATH WITH '\'
APPEND '.TMS' TO CPATH
MOVE CPATH TO RFILE
LOOKFOR CPATH
IF RESP <> 0
INSERT CPATH
PUT 'CREATE_OPTIONS' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET CREATE
IF CREATE
CLEAR RFILE
FI
FI
FI
IF RFILE <> SPACES
RESTORE RFILE CATLOC SITE TEXTS CMDS PTY PATHS DTS WST PAU RES RES1 RES2
IF RESP = 0
RESTORE AC AP APT APF HLP T1 T2 SECURE PROMPTS PDEFS P2DEFS PQS
FI
IF RESP = 0
RESTORE TIMEOUT BLACK SHELL SUG
FI
IF RESP = 0
RESTORE
ELSE
DISPLAYLN 'Fatal Error:'
IF RESP = 99
DISPLAYLN 'Service file ' CFP ' is corrupt'
ELSE
DISPLAYLN 'Service file ' CFP ' could not be opened'
FI
STOP 2
FI
FI
IF EXPERT AND NOT DEMO
MOVE SUG TO SHELLUG
MOVE SHELL TO CHAR
MOVE SECURE TO CSEC
APPEND 68 TO CATLOC
FIELDFILL CATLOC SITE CSEC TIMEOUT BLACK CHAR SHELLUG
PUT 'EXPERT' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET CATLOC SITE CSEC TIMEOUT BLACK SHELL SHELLUG
MOVE CSEC TO SECURE
ELSE
FIELDFILL SITE
PUT 'SITE_DETAIL' NOCLEAR UL
IF FUNKEY = 10
STOP
FIè GET SITE
IF NOT DEMO
FIELDFILL CATLOC
PUT 'EUC_PATH' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET CATLOC
FI
IF DEMO
CLEAR SECURE
ELSE
CLEAR CHOICE
IF SECURE
MOVE 2 TO CHOICE
FI
MOVE 0020H TO BBMASK
PUT 'SECURITY_LEVEL' NOCLEAR UL
IF CHOICE = 40
STOP
FI
IF CHOICE = 1
CLEAR SECURE
ELSE
MOVE TRUE TO SECURE
FI
FI
FIELDFILL TIMEOUT
PUT 'AUTO_LOGOUT' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET TIMEOUT
MOVE TIMEOUT TO MINS
IF MINS <> 0
FIELDFILL BLACK
PUT 'BLACK_OUT' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET BLACK
FI
MOVE SUG TO SHELLUG
MOVE SHELL TO CHAR
FIELDFILL CHAR SHELLUG
PUT 'SHELL_OUT' NOCLEAR UL
IF FUNKEY = 10
STOP
FI
GET SHELL SHELLUG
FI
MOVE SHELLUG TO SUG
TRIM CPATH CATLOC
IF CATLOC <> NULL
MOVE TRUE TO EUSR
MOVE 'Change Password ' TO ENTRY 10 OF TEXTS
MOVE 'Logout ' TO ENTRY 11 OF TEXTSè MOVE 'Send Message ' TO ENTRY 12 OF TEXTS
ELSE
CLEAR ENTRY 10 OF TEXTS
CLEAR ENTRY 11 OF TEXTS
CLEAR ENTRY 12 OF TEXTS
FI
MOVE 40 TO J
CLEAR I
UNTIL I = 16
MOVE ENTRY I OF SYSMESS TO ENTRY J OF HLP
INCREMENT J
FI I
PUT 'START' NOWAIT
POPSCREEN START
INSERT TEXTS
PUT 'SERVICES' NODATA NOCLEAR UL
USERLINE
MOVE ESCAPE_MASK TO BBMASK
CLEAR CHOICE
GOBACK 1BEGIN
ENDTASK
; Title : CONFIG.TSK Last Updated : March 1991
; Author : Mike Eastham.- FmP. Version : 1.02
; Purpose : Standard Services Selection configuration. Supports Networking.
; Notes : Configuration is used by STANDARD.TSK
@VID
@macro s40,' '
@macro cmd,' '
@macro main_win
@acceptfk f10
@col char,white,black
@win line7,column5,depth15,width74
@endm
@macro end_main
@col char,white,black
@win line22,column48,depth1,width30
Press F10 to ABANDON CONFIG ...
@endm
@HEAD LEFT,'Taskmaster Utility'
@HEAD RIGHT,'Copyright (C) FmP 1991'
@nf INTRO
@dim
@col page,white,blue
@head centre,INTRODUCTION
@banner
@border
Thσ áTaskmaste≥ átask≤ áCONFI╟ áanΣ áSTANDAR─ áarσ ásupplieΣ áa≤ ááaεì
áááááalternativσ át∩ ádevelopinτ you≥ owε task(s⌐ iε orde≥ át∩ ásuppor⌠ áß ì
ááááásophisticateΣ Interactivσ use≥-friendl∙ shell.
áááááCONFI╟ áenable≤ áyo⌡ o≥ you≥ systeφ administrato≥ át∩ ácustomisσ áthσ ì
ááááásysteφ interactivel∙ t∩ matcΦ you≥ requirements« I⌠ i≤ supplieΣ prσ-ì
áááááconfigureΣ át∩ ruε ß handfu∞ oµ standarΣ utilitie≤ fo≥ ádemonstratioε ì
ááááápurpose≤ anΣ t∩ givσ yo⌡ aε ideß oµ ho≈ t∩ configurσ it.
áááááWheε yo⌡ havσ configureΣ thσ system¼ typσ T═ STANDAR─ ü t∩ ruε it.
áááááIµ áyo⌡ arσ ß Systeφ Administrator¼ yo⌡ ma∙ neeΣ t∩ develo≡ you≥ áowε ì
ááááátask≤ áiµ áyo⌡ áwisΦ át∩ adΣ feature(s⌐ no⌠ áfounΣ áiε áthσ ástandarΣ ì
áááááofferinτ .« bu⌠ that'≤ thσ beaut∙ oµ Taskmaster╗ providinτ aε endles≤ ì
ááááávariet∙ oµ processinτ option≤ anΣ screeε displays.
@bbmenu white,blue
{Help on bounce-bar menus } Press
{Help about editing }
{Begin the Configuration }
@bright
@end
@HEAD CENTRE,'SET/CHANGE SYSTEM DETAILS'
@NF CONFIG1
@col char,cyan,blue
@dim
@banner
@col char,yellow,black
@border
Thi≤ á prograφ ácreate≤ áß servicσ filσ ácalleΣ áname.T═Sá containinτ ìèááááádetail≤ oµ standarΣ anΣ custome≥-defineΣ service≤ t∩ bσ provideΣ t∩ ì
áááááTaskmaste≥ user≤ viß thσ optiona∞ tasδ STANDARD.TS╦
@border
@dim
@bbmenu green,black
Are you an {Experienced user } or {Novice } ?
@bright
@END
@NF CONFIG2
@col char,cyan,blue
@dim
@banner
@col char,yellow,black
@border
Thi≤ á prograφ ácreate≤ áß servicσ filσ ácalleΣ áname.T═Sá containinτ ì
ááááádetail≤ oµ standarΣ anΣ custome≥-defineΣ service≤ t∩ bσ provideΣ t∩ ì
áááááTaskmaste≥ user≤ viß thσ optiona∞ tasδ STANDARD.TS╦
@border
@bright
@end
@NF SERVICE_FILE
@file
$main_win$
Name of Service file ? (Mandatory)
[CONFIG ]
@col char,yellow,black
Thi≤ i≤ thσ namσ oµ thσ Servicσ filσ yo⌡ wisΦ t∩ creatσ o≥ update in the
working directory« When runninτ CONFI╟ fo≥ thσ firs⌠ time¼ thσ defaul⌠
filenamσ showε wil∞ bσ thσ onσ installed when you raε GO.BA╘ ¡ pres≤
Alternatively¼ iµ yo⌡ wisΦ t∩ creatσ severa∞ servicσ files¼ pleasσ
ente≥ thσ requireΣ filenamσ. An extension of .TMS will be automatically
appended.
$end_main$
@end
@NF SERVCATS
@dim
@bbmenu green,black
@win line7,column3,depth15,width74
@bright
{ } Please select required service catalogue
{ } or press F1 to create a new one.
@repeat x8
{ }
$end_main$
@END
@NF CREATE_OPTIONS
@log
$main_win$
{ }
Abovσ áfilσ no⌠ found« Do yo⌡ wisΦ t∩ creatσ ß ne≈ servicσ filσ áwitΦ ì
thi≤ name ?
@col char,yellow,black
Create ? [Y] Y=yes, N=noì
$end_main$
@end
@nf SITE_DETAIL
@str min1
$main_win$
Name of user or Company name etc.
[ ]
@col char,yellow,black
The information you supply here will appear in screen headings, when
running STANDARD.TSK.è$end_main$
@end
@nf EUC_PATH
@path optional
$main_win$
Please supply an optional path for file CATALOG.EUC
Please enter the name of a Directory where the above flie resides. If
you don't wish to use the EUC option, clear the box and press
[. ]
@col char,yellow,black
Onσ functioε oµ thσ EU├ prograφ i≤ t∩ maintaiε ß securσ cataloguσ áoµ ì
valiΣ ááusername≤ áanΣ ápasswords« áIt≤ áusσ áalthougΦ áoptiona∞ áái≤ ì
recommended¼ ááespeciall∙ áiµ áyo⌡ áusσ áthσ áNetworkeΣ áversioε ááoµ ì
Taskmaster« EU├ wil∞ bσ supplieΣ wheε yo⌡ register.
Pleasσ notσ tha⌠ thσ sharewarσ versioε i≤ issueΣ witΦ aε examplσ file
CATALOG.EU├ anΣ wil∞ thereforσ normall∙ residσ iε director∙ \FMP.
$end_main$
@end
@nf SECURITY_LEVEL
@dim
@col char,white,black
@win line7,column5,depth15,width74
Please select security level - current level highlighted
@bbmenu white,black
@gon
7---------------8------------8-----------------------------------9
0Security level 0 EUC usage 0 Exit from STANDARD.TSK 0
4---------------5------------5-----------------------------------6
0 {LOW } 0 optional 0 Always possible at login via F10 0
4---------------5------------5-----------------------------------6
0 {HIGH } 0 no 0 NOT ALLOWED 0
0 0 yes 0 Only users in EUC user-group 99 0
1---------------2------------2-----------------------------------3
@goff
@bright
@col char,yellow,black
For demonstration purposes, it is undesirable to set this feature, so
highlight LOW and press
$end_main$
@end
@nf AUTO_LOGOUT
@num
$main_win$
Auto-Logout ┐ (Minutes) [10▌ Ente≥ ░ iµ facilit∙ no⌠ requiredè
@col char,yellow,black
Iµ áyo⌡ leavσ you≥ P├ unnattendeΣ fo≥ ß specifieΣ period¼ áTaskmaste≥ ì
wil∞ ánormall∙ loτ yo⌡ ou⌠ (fo≥ securit∙ reasons)¼ forcinτ áthσ ánex⌠ ì
use≥ t∩ suppl∙ ß valiΣ usernamσ anΣ password.
$end_main$
@END
@nf BLACK_OUT
@log
$main_win$
Black-out ? [Y] Y=Yes, N=No
@col char,yellow,black
Auto-Logout has been requested. Do you want the screen to be blacked-out
to prevent burn-in ?
$end_main$
@END
@nf SHELL_OUT
@log
@num
$main_win$
Allow SHELLS ? [N] Y=Yes, N=No
User-grou≡ ? [99] EUC user-group number (0 = ALL users)
@col char,yellow,black
D∩ áyo⌡ wisΦ t∩ allo≈ user≤ acces≤ t∩ thσ DO╙ promp⌠ anΣ hencσ áothe≥ ì
service≤ ┐ Iµ yo⌡ answe≥ 'Y'¼ thσ use≥ wil∞ bσ ablσ t∩ loaΣ furthe≥ ì
shell≤ viß Functioε ke∙s ╕/9 anΣ returε b∙ typinτ 'EXIT'.
Obviously¼ áthi≤ coulΣ bσ ß breacΦ oµ an∙ securit∙ measure≤ áyo⌡ áma∙ ì
havσ áadopted« áIµ áusinτ EUC¼ yo⌡ caε restric⌠ áthσ áfacilit∙ át∩ áß ì
specifiπ use≥-group.
If you respond 'N', not only will this suppress the use of F8/F9 but
it will ALSO prevent most applications from shelling-out.
$end_main$
@END
@NF START
@dim
@col page,cyan,blue
@col char,blue,cyan
@win line0,column0,depth1,width0
CONFIG V1.02 Copyright (c) FmP 1991 Proposed service menu
@bright
@col char,white,blue
@end
@NF MAIN_MENU
@dimè@win line2,column2,depth3,width28
@bbimenu red,white
{Edit menu option texts }
{Define/edit option details }
{Quit CONFIG }
@bright
@col char,white,blue
@END
@NF SERVICES
@dim
@BBMENU red,white
@WINDOW line2,column50,depth13,width17
@repeat x13
{ }
@bright
@col char,white,blue
@USE 'Press <ESC> to return to the MAIN menu ...'
@END
@NF TEXTS
@dim
@acceptfk F10
@col char,cyan,blue
@repeat x10
@str
@window line2,column50,depth13,width18
@repeat x10
[ ]
@bright
@col char,white,blue
@END
@macro wconf
@acceptfk f10
@col char,white,blue
@window line15,column0,depth9,width0
@border
@endm
@macro help_window
@dim
@co∞ char,cyan,blue
@window line3,column2,depth11,width44
@endm
@NF TIME_WINDOW
@TIME
@TIME
$wconf$
"{ }" service availability ?
From : [00:00] To : [23:59]
Press to use the defaults or enter required times
@dim
@co∞ char,cyan,blue
@window line2,column0,depth13,width48
@out cyan,double
Taskmaste≥ caε le⌠ yo⌡ specif∙ ß timσ windo≈ ì
fo≥ áeacΦ áapplication¼ i.e« áhour≤ ádurinτ ì
whicΦ tha⌠ servicσ i≤ available.
┴ ácommoε usσ i≤ t∩ preven⌠ thσ usσ oµ ánoε-ì
productivσ ásoftware¼ áe.g« á games¼ ádurinτ ì
workinτ hours.
@bright
@co∞ char,white,blue
@use 'F10 = Quit, any previous changes will be saved'
@END
@NF GET_COMMAND
@STR MIN1
@LOG
@PATH OPTIONAL
$wconf$
Run-time information for "{ }"
DOS command [$cmd$]
Command needs all available memory ? [N] Y=YES,N=NO
è The Directory you are in when you run it ? (Optional)
[ ]
$help_window$
Pleasσ ente≥ thσ commanΣ yo⌡ woulΣ ánormall∙ ì
typσ áa⌠ áthσ DO╙ promp⌠ ábu⌠ á excludinτ áß ì
path¼ whicΦ shoulΣ bσ entereΣ separatel∙ iµ ì
required«
Iµ ávariablσ áinformatioε i≤ needed¼ áusσ áß ì
notatioε %1,%2,%│ o≥ %4« An∙ numbe≥ caε ábσ ì
repeated« Yo⌡ wil∞ late≥ bσ askeΣ t∩ suppl∙ ì
prompts«
EXAMPLE║ COP┘ A:%▒ C:%▓ /V
@bright
@co∞ char,white,blue
@END
@NF GET_PROMPT
@STR MIN1
@STR
$wconf$
Command : {$cmd$}
Parameter %{ } ?
Prompt [$s40$] (No question-mark needed)
Default [$s40$] (Optional)
$help_window$
A⌠ áruε-time¼ eacΦ paramete≥ áyo⌡ áspecifieΣ ì
(%1¼ %▓ ...⌐ wil∞ bσ requesteΣ b∙ ß prompt« ì
Thσ ápromp⌠ á caε ábσ u≡ át∩ á4░ ácharacter≤ ì
maximum.
Iµ áyo⌡ áhavσ specifieΣ thσ ásamσ áparamete≥ ì
morσ áthaε once¼ i⌠ wil∞ onl∙ bσ árequesteΣ ì
once.
@bright
@co∞ char,white,blue
@END
@NF GET_DATA
@STR
@NUM
$wconf$
Yo⌡ caε optionall∙ pas≤ upt∩ 6┤ character≤ oµ datß t∩ man∙ program≤ ì
anΣ use ^ to represent control characters, e.g. ^A = CTRL/A
[ ]
Wait states for programs that don't normally allow type-ahead, i.e.
programs that flush keyboard input [ 0] 0-99è$help_window$
Iµ thσ prograφ need≤ keyboarΣ data¼ yo⌡ áma∙ ì
bσ áablσ át∩ automatσ it≤ á entry¼ áprovideΣ ì
tha⌠ ái⌠ read≤ i⌠ usinτ thσ BIO╙ áinterface« ì
(Obtain technica∞ suppor⌠ iµ iε doubt.)
Alternatively¼ áyo⌡ áma∙ ábσ áablσ át∩ ááusσ ì
standarΣ command-linσ redirection.
Somσ áprogram≤ áflusΦ typσ-aheaΣ ádatß áwheε ì
the∙ áload« Thi≤ ma∙ bσ avoidablσ b∙ átryinτ ì
various wait-state values. Initially try 1. ì
@bright
@co∞ char,white,blue
@END
@NF PAUSE_AFTER_RUN
@LOG
$wconf$
Do you want Taskmaster to pause after program has ended to allow
viewing of results ? [N] Y=YES, N=NO
$help_window$
Answe≥ á┘ iµ yo⌡ typicall∙ wisΦ t∩ vie≈ áthσ ì
screeε áoutpu⌠ áfroφ you≥ á applicatioε áanΣ ì
especiall∙ áiµ therσ i≤ an∙ possibilit∙ áoµ ì
otherwisσ missinτ aε importan⌠ message.
Iµ yo⌡ answe≥ N¼ contro∞ wil∞ alway≤ áreturε ì
immediatel∙ át∩ thσ servicσ selectioε ámen⌡ ì
afte≥ clearinτ thσ screen.
@bright
@co∞ char,white,blue
@END
@NF RESULTS
$help_window$
Wheε áthσ applicatioε ha≤ finisheΣ árunning¼ ì
yo⌡ ma∙ optionall∙ reques⌠ tha⌠ áTaskmaste≥ ì
make≤ áonσ oµ thσ check≤ showε iε thσ ámen⌡ ì
below.
Iµ yo⌡ reques⌠ an∙ oµ thesσ checks¼ yo⌡ ácaε ì
als∩ áoptionall∙ áreques⌠ átha⌠ á ß áfurthe≥ ì
applicatioε bσ ruε dependinτ oε thσ áresul⌠ ì
oµ tha⌠ check.
@dim
$wconf$
@bbimenu red,white
RESULT CHECKING
{No check required }
{Examine message on screen }
{Look for a named file }
{Check ERRORLEVEL value }
@END
@NF CHECK2è@STR MIN1
@NUM MAX 25
@COL CHAR,YELLOW,blue
@WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48
@border
What is the text string to search for ?
[ ]
Do you know its line number 0-24 ? [25]
Put 25 in box if not known.
$help_window$
Taskmaste≥ wil∞ looδ a⌠ thσ screeε wheε áthσ ì
applicatioε áha≤ áfinisheΣ át∩ á seσ áiµ ááß ì
specifieΣ characte≥ strinτ exists¼ e.g« áaε ì
erro≥ message.
I⌠ ácaε perforφ thi≤ morσ reliably¼ áiµ áyo⌡ ì
caε átel∞ i⌠ thσ precisσ linσ numbe≥ áwherσ ì
thσ ácharacter≤ arσ t∩ bσ áfounΣ á(assuminτ ì
it'≤ alway≤ thσ samσ !)
@bright
@co∞ char,white,blue
@END
@NF CHECK3
@DRAW
@PATH
@FILE
@COL CHAR,YELLOW,blue
@WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48
What is the path ?
[ ]
and the filename ?
[ ]
$help_window$
Thσ áásucces≤ áoµ áaε áapplicatioε áma∙ áábσ ì
measureΣ áb∙ thσ existencσ oµ ß á particula≥ ì
filσ áafte≥ áuse¼ e.g« downloadinτ áfroφ áß ì
Mainframσ viß filσ transfer.
Taskmaste≥ áwil∞ átr∙ t∩ finΣ thσ áfilσ áyo⌡ ì
specify.
@bright
@co∞ char,white,blue
@END
@NF CHECK4
@DRAW
@LIST SF
@NUM MIN0,MAX255è@COL CHAR,YELLOW,blue
@WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48
Values of MS-DOS ERRORLEVEL parameter to
check for ?
S=value for success, F=value for failure [S]
ERRORLEVEL value [ 0] 0-255
$help_window$
Man∙ program≤ returε aε ERRORLEVE╠ value.
This is a code in the range 0-255 which is
mormally used to indicate success or failure
of a program.
Yo⌡ neeΣ t∩ sa∙ iµ thσ valuσ yo⌡ specif∙ ái≤ ì
ß á"successó ácodσ o≥ ß "failureó ácodσ áb∙ ì
answerinτ "Só o≥ "Fó respectively.
@bright
@co∞ char,white,blue
@END
@NF RUN_AFTER_CHECK
@STR MIN1
@LIST FS
@LOG
@path optional
$wconf$
MS-DOS command to obey after "{ }" finished ?
[ ]
F=run on fail, S=run on success ? [F]
Command needs all available memory ? [N] Y=YES,N=NO
Path to use when invoking the command ?
[ ]
$help_window$
Yo⌡ ma∙ wan⌠ t∩ ente≥ ß furthe≥ áapplicatioε ì
iε áthσ áeven⌠ tha⌠ áthσ á maiε áapplicatioε ì
give≤ áß specifiπ result¼ accordinτ t∩ áthσ ì
check≤ yo⌡ havσ specified.
Answerinτ áá"Fó áámean≤ átha⌠ ááthσ ááseconΣ ì
applicatioε áwil∞ ruε iµ thσ áfirs⌠ á fails« ì
"Só mean≤ thσ converse.
@bright
@co∞ char,white,blue
@END
@SPACES LEN72
@NF USER_HELP
@repeat x4
@STRè$wconf$
@COL CHAR,WHITE,blue
End User HELP text for this option :
@COL CHAR,YELLOW,blue
@repeat x4
[_]
$help_window$
Wheε áááthσ áááservicσ áááselectioε ááátask║ ì
STANDARD.TS╦ ái≤ árunning¼ áthσ áuse≥ áá caε ì
reques⌠ ádetail≤ áoµ an∙ áoµ áthσ á service≤ ì
availablσ oε it≤ menu.
Yo⌡ caε suppl∙ upt∩ fou≥ line≤ oµ tex⌠ t∩ bσ ì
displayed.
@bright
@co∞ char,white,blue
@END
@NF KHELP
@dim
@col char,cyan,blue
@win line17,column1,depth6,width78
Cursor: First field: Home Action:
Editing: Delete from cursor to end of field = ctrl/T
Character insert: ins Character delete: del or ctrl/G
@bright
@col char,white,blue
@END
@NF PROMPT_TYPE
@LOG
$wconf$
Command : {$cmd$}
Parameter %{ } ?
Is its value determined by a Y/N answer ? [N]
$help_window$
Iµ thσ valuσ oµ thi≤ paramete≥ i≤ se⌠ b∙ thσ ì
answe≥ át∩ ß Y/╬ question¼ yo⌡ caε áspecif∙ ì
thσ átw∩ á values¼ onσ oµ whicΦ i≤ áuseΣ áa⌠ ì
ruε-time.
E.g« áCOP┘ %▒ A:%▓ Supposσ tha⌠ yo⌡ áwanteΣ ì
verificatioε át∩ ábσ áoptional¼ á yo⌡ ácoulΣ ì
specif∙ á%▓ a≤ /╓ o≥ nul∞ dependinτ oε áthσ ì
answe≥ t∩ you≥ prompt.
@bright
@co∞ char,white,blue
@END
@NF YESNO_VALUES
@STR MIN1
@STR
@STR
$wconf$
Command : {$cmd$}
Parameter %{ } ? User responds Y/N to prompt.
Prompt [$s40$] (No question-mark needed)
Value when 'Y' [$s40$]
Value when 'N' [$s40$]
$help_window$
Pleasσ suppl∙ thσ promp⌠ (question⌐ anΣ áthσ ì
tw∩ possiblσ value≤ yo⌡ wisΦ thσ áparamete≥ ì
t∩ take.
Fo≥ ß nul∞ value¼ leavσ thσ fielΣ empty.
@bright
@co∞ char,white,blue
@ENDè
@nf EXPERT
@path optional
@str min1
@log
@num
@log
@log
@num
$main_win$
Optional path for file CATALOG.EUC:
[ ]
Name of user or Company name etc.
[ ]
High Security ? [ ] Y=yes, N=No
Auto-Logout ┐ [10▌ Ente≥ ░ iµ facilit∙ no⌠ required
Black-out ? [Y] Y=Yes, N=No
Allow SHELLS ? [N] Y=Yes, N=No
User-grou≡ ? [99] EUC user-group number (0 = ALL users)
Press to leave unchanged.
$end_main$
@end
@EOF